42
Is it possible to programmatically expand a folder (sample 1)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Layout = "Expand0 = ""c:\"";SelectMode0 = 0"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
41
Can I limit the size of each cascade column, so the user can't resize them outside of the range I give
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.HeaderVisible = False
		.Mode = 0
		.ColumnsVisible = 2
		.MinColumnWidth = 128
		.MaxColumnWidth = 256
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
40
How can I define the width of the cascade column

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Mode = 0
		.DefColumnWidth = 256
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
39
The scroll bars are too large. Can I make them smaller

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ScrollWidth = 4
		.ScrollHeight = 4
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
38
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.ScrollPartVisible(0,65536) = True
		.ScrollPartVisible(1,65536) = True
		.ScrollPartVisible(2,65536) = True
		.ScrollWidth = 4
		.Background(276) = RGB(240,240,240)
		.Background(260) = RGB(128,128,128)
		.ScrollHeight = 4
		.Background(404) = .Background(276)
		.Background(388) = .Background(260)
		.Background(511) = .Background(276)
		.EndUpdate 
		.BeginUpdate 
		.ColumnsVisible = 2
		.HeaderVisible = False
		.FitCascadeColumns = 3
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
37
How can I lock / freeze the control events
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_Event(EventID)
	With CascadeFile1
		alert( .EventParam(-2) )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.FreezeEvents True
	End With
End Function
</SCRIPT>
</BODY>
36
How can I display the list mode in the first view, and thumbnail in the second view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.AllowSplitView = 1
		.SplitViewHeight = "256"
		.Layout = "Select1=""c:\"";SelectMode1 = 2"
		.Layout = "Select0=""c:\"";SelectMode0 = 1"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
35
How can I programmatically select a different folder in the second, or third view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.AllowSplitView = 1
		.SplitViewHeight = "256"
		.Layout = "Select1=""d:\"""
		.Layout = "Select0=""E:\"""
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
34
How can I programmatically vertically-split the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.AllowSplitView = 2
		.SplitViewHeight = "256,256"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
33
How can I find if the control is running in DPI mode
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		alert( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
	End With
End Function
</SCRIPT>
</BODY>
32
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"XP:TREEVIEW 2 1"
			.Add 2,"XP:TREEVIEW 2 2"
		End With
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
31
How can I change the visual appearance of the +/- buttons

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		With .VisualAppearance
			.Add 1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" & _
	"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" & _
	"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" & _
	"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
			.Add 2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" & _
	"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" & _
	"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" & _
	"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" & _
	"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" & _
	"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" & _
	"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
		End With
		.Background(180) = &H1000000
		.Background(181) = &H2000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
30
How can I change the color for selected thumbnail

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Select = "c:\"
		.SelectMode = 2
		.Background(178) = RGB(255,0,0)
		.Background(179) = RGB(128,0,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
29
How can I change the thumbnail's frame color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Select = "c:\"
		.SelectMode = 2
		.Background(177) = RGB(0,0,1)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
28
Turn on the background-alternate colors, for Thumbnail view

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Select = "c:\"
		.SelectMode = 2
		.Background(175) = RGB(128,128,128)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
27
Is there any option I can highlight the panel view that currently has the focus

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Background(173) = RGB(128,128,128)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
26
I disabled the split bars, the question is how can I change the visual appearance of them

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Background(18) = RGB(128,128,128)
		.Background(171) = .Background(18)
		.Background(142) = .Background(18)
		.Background(141) = .Background(18)
		.Background(170) = RGB(2,0,0)
		.Background(172) = .Background(170)
		.HeaderVisible = False
		.Mode = 771 ' CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
25
The control's split bar looks a bit larger, can I make it smaller

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
	"JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
	"iC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFY" & _
	"FoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJl" & _
	"EkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDyd" & _
	"w8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi" & _
	"0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
		.AllowSplitView = 2
		.Background(18) = &H1000000
		.Background(142) = &H1000000
		.Background(141) = &H1000000
		.Background(170) = RGB(3,0,0)
		.HeaderVisible = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
24
How can I change the status bar's visual appearance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
	"JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
	"iC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFY" & _
	"FoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJl" & _
	"EkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDyd" & _
	"w8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi" & _
	"0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
		.StatusBarVisible = 2
		.Background(168) = &H1404040
		.Background(169) = RGB(255,255,255)
		.Background(174) = &H1808080
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
23
How can I change the status bar's visual appearance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.StatusBarVisible = 2
		.Background(168) = RGB(40,40,40)
		.Background(169) = RGB(255,255,255)
		.Background(174) = RGB(128,128,128)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
22
How can I change the visual appearance for all split-bars that the control displays

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" & _
	"AceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" & _
	"JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" & _
	"iC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFY" & _
	"FoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJl" & _
	"EkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDyd" & _
	"w8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi" & _
	"0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
		.AllowSplitView = 2
		.Background(18) = &H1000000
		.Background(142) = &H1000000
		.Background(141) = &H1000000
		.HeaderVisible = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
21
How can I change the visual appearance for all split-bars that the control displays

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.AllowSplitView = 2
		.Background(18) = RGB(0,0,1)
		.Background(142) = RGB(0,0,1)
		.Background(141) = RGB(0,0,1)
		.HeaderVisible = False
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
20
How can I change the tooltip's visual appearance

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_MouseMove(Button,Shift,X,Y)
	With CascadeFile1
		.ShowToolTip "This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control."
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzV" & _
	"AcRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIu" & _
	"TBOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBh" & _
	"uC+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4Elm" & _
	"aQJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZl" & _
	"EQDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBII" & _
	"oiAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm" & _
	"0CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA" & _
	"2nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKks" & _
	"T5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzC" & _
	"WBoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ=="
		.Background(64) = &H1000000
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
19
How can I change the tooltip's visual appearance

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_MouseMove(Button,Shift,X,Y)
	With CascadeFile1
		.ShowToolTip "This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control."
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Background(65) = RGB(0,0,1)
		.Background(66) = RGB(255,255,0)
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
18
How can I change the visual appearance of the control's split bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzV" & _
	"AcRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIu" & _
	"TBOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBh" & _
	"uC+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4Elm" & _
	"aQJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZl" & _
	"EQDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBII" & _
	"oiAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm" & _
	"0CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA" & _
	"2nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKks" & _
	"T5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzC" & _
	"WBoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ=="
		.Background(18) = &H1000000
		.HeaderVisible = False
		.Mode = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
17
How can I change the visual appearance of the control's split bar

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Background(18) = RGB(240,240,240)
		.HeaderVisible = False
		.Mode = 0
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
16
How can I load images into the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
		.StatusBarVisible = 2
		.StatusBarLabel = "<img>pic1</img> This is picture into the control's status bar"
	End With
End Function
</SCRIPT>
</BODY>
15
Is it possible to show my tooltip

<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function CascadeFile1_MouseMove(Button,Shift,X,Y)
	With CascadeFile1
		.ShowToolTip "This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control."
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()

End Function
</SCRIPT>
</BODY>
14
Is it possible to change the tooltip's font

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		Set f = CreateObject("StdFont")
		With f
			.Name = "Tahoma"
			.Size = 12
		End With
		.ToolTipFont = f
	End With
End Function
</SCRIPT>
</BODY>
13
Is it possible to change the tooltip's width

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ToolTipWidth = 64
	End With
End Function
</SCRIPT>
</BODY>
12
How can I disable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.Enabled = False
	End With
End Function
</SCRIPT>
</BODY>
11
How can I force refreshing the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
10
How can I prevent showing any tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ToolTipDelay = 0
		.ToolTipPopDelay = 0
	End With
End Function
</SCRIPT>
</BODY>
9
How can I make the control's tooltip to be shown for a longer time

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ToolTipPopDelay = 10000
	End With
End Function
</SCRIPT>
</BODY>
8
How can I make the control's tooltip to be shown faster

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ToolTipDelay = 1
	End With
End Function
</SCRIPT>
</BODY>
7
How can I get the control's handle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		alert( .hWnd )
	End With
End Function
</SCRIPT>
</BODY>
6
How can I clears the images into the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.StatusBarVisible = 2
		.StatusBarLabel = "<img>1</img> This is an icon into the control's status bar"
		.ReplaceIcon 0,-1
	End With
End Function
</SCRIPT>
</BODY>
5
How can I load images into the control

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
		.StatusBarVisible = 2
		.StatusBarLabel = "<img>1</img> This is an icon into the control's status bar"
	End With
End Function
</SCRIPT>
</BODY>
4
How do I get the version of the control I am running
<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		alert( .Version )
	End With
End Function
</SCRIPT>
</BODY>
3
The control's foreground is changed if I open multiple views. What can be the problem

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.ForeColor = RGB(255,0,0)
		.ForeColorAlternate = .ForeColor
	End With
End Function
</SCRIPT>
</BODY>
2
The control's background is changed if I open multiple views. What can be the problem

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BackColor = RGB(255,255,0)
		.BackColorAlternate = .BackColor
	End With
End Function
</SCRIPT>
</BODY>
1
How do I change the control's background color

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BackColor = RGB(240,240,240)
		.BackColorAlternate = .BackColor
		.HeaderVisible = False
	End With
End Function
</SCRIPT>
</BODY>